home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / toolappicon / tm_initrem.e next >
Text File  |  1994-05-02  |  11KB  |  100 lines
  1. PROC tm_OpenLibraries() HANDLE /*"tm_OpenLibraries()"*/
  2.     IF (intuitionbase:=OpenLibrary('intuition.library',37))=NIL THEN Raise(ER_INTUITIONLIB)
  3.     IF (gadtoolsbase:=OpenLibrary('gadtools.library',37))=NIL THEN Raise(ER_GADTOOLSLIB)
  4.     IF (gfxbase:=OpenLibrary('graphics.library',37))=NIL THEN Raise(ER_GRAPHICSLIB)
  5.     IF (reqtoolsbase:=OpenLibrary('reqtools.library',38))=NIL THEN Raise(ER_REQTOOLSLIB)
  6.     IF FindTask('ToolManager Handler')=0
  7.         tm_Request('ToolManager n\aest pas actif','_Merci',NIL)
  8.         Raise(ER_NOTM)
  9.     ENDIF
  10.     IF (toolmanagerbase:=OpenLibrary('toolmanager.library',3))=NIL THEN Raise(ER_TOOLMANAGERLIB)
  11.     IF (workbenchbase:=OpenLibrary('workbench.library',37))=NIL THEN Raise(ER_WORKBENCHLIB)
  12.     Raise(ER_NONE)
  13. EXCEPT
  14.     RETURN exception
  15. ENDPROC
  16. PROC tm_InitAPP() HANDLE /*"tm_InitAPP()"*/
  17.     DEF tt
  18.     IF (prgsig:=AllocSignal(prgsig))=NIL THEN Raise(ER_SIG)
  19.     IF (tm_h:=AllocTMHandle())=NIL THEN Raise(ER_TMHANDLE)
  20.     IF (tt:=tm_InitMainWindow())<>ER_NONE THEN Raise(tt)
  21.     IF (list_appicon:=p_InitList())=NIL THEN Raise(ER_LIST)
  22.     list_empty:=[0,0,0,0]; list_empty[0]:=list_empty+4; list_empty[2]:=list_empty
  23.     AddTail(list_empty,[0,0,0,0,' ']:ln)
  24.     IF (prgport:=CreateMsgPort())=NIL THEN Raise(ER_PORT)
  25.     IF (appitem:=AddAppMenuItemA(0,0,'TMAppIc',prgport,[MTYPE_APPMENUITEM,TAG_DONE]))=NIL THEN Raise(ER_APPITEM)
  26.     Raise(ER_NONE)
  27. EXCEPT
  28.     RETURN exception
  29. ENDPROC
  30. PROC tm_InitMainWindow() HANDLE /*"tm_InitMainWindow()"*/
  31.     IF (execw_screen:=LockPubScreen('Workbench'))=NIL THEN Raise(ER_WB)
  32.     IF (execw_visual:=GetVisualInfoA(execw_screen,NIL))=NIL THEN Raise(ER_VISUAL)
  33.     IF (execw_glist:=CreateContext({execw_glist}))=NIL THEN Raise(ER_CONTEXT)
  34.     IF (g_name:=CreateGadgetA(STRING_KIND,execw_glist,[156,17,181,13,'Nom de L\aobjet',tattr,0,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  35.     IF (g_exectype:=CreateGadgetA(CYCLE_KIND,g_name,[156,30,181,12,'Mode Exec',tattr,1,1,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GTCY_LABELS,['CLI','WB','Arexx',0],GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  36.     IF (g_getcommand:=CreateGadgetA(BUTTON_KIND,g_exectype,[309,42,28,13,'?',tattr,2,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  37.     IF (g_command:=CreateGadgetA(STRING_KIND,g_getcommand,[159,42,148,13,'Commande',tattr,3,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  38.     IF (g_hotkey:=CreateGadgetA(STRING_KIND,g_command,[158,55,181,13,'Raccourci-clavier',tattr,4,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  39.     IF (g_stack:=CreateGadgetA(STRING_KIND,g_hotkey,[157,68,181,13,'Pile',tattr,5,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  40.     IF (g_priority:=CreateGadgetA(STRING_KIND,g_stack,[157,81,181,13,'Priorité',tattr,6,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  41.     IF (g_delay:=CreateGadgetA(STRING_KIND,g_priority,[157,94,181,13,'Délai',tattr,7,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  42.     IF (g_currentdir:=CreateGadgetA(STRING_KIND,g_delay,[159,107,148,13,'Tiroir courant',tattr,8,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  43.     IF (g_getpath:=CreateGadgetA(BUTTON_KIND,g_currentdir,[309,120,28,13,'?',tattr,9,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  44.     IF (g_path:=CreateGadgetA(STRING_KIND,g_getpath,[159,120,148,13,'Chemin',tattr,10,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  45.     IF (g_getoutput:=CreateGadgetA(BUTTON_KIND,g_path,[309,133,28,13,'?',tattr,11,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  46.     IF (g_output:=CreateGadgetA(STRING_KIND,g_getoutput,[159,133,148,13,'Fichier sortie',tattr,12,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  47.     IF (g_getpubscreen:=CreateGadgetA(BUTTON_KIND,g_output,[309,146,28,13,'?',tattr,13,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  48.     IF (g_pubscreen:=CreateGadgetA(STRING_KIND,g_getpubscreen,[159,146,148,13,'Ecran public',tattr,14,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  49.     IF (g_arguments:=CreateGadgetA(CHECKBOX_KIND,g_pubscreen,[37,165,26,11,'Arguments',tattr,15,2,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GTCB_CHECKED,FALSE,GT_UNDERSCORE,"_", TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  50.     IF (g_tofront:=CreateGadgetA(CHECKBOX_KIND,g_arguments,[160,165,26,11,'Au premier plan',tattr,16,2,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GTCB_CHECKED,FALSE,GT_UNDERSCORE,"_", TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  51.     IF (g_add:=CreateGadgetA(BUTTON_KIND,g_tofront,[383,114,101,12,'Add',tattr,17,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  52.     IF (g_rem:=CreateGadgetA(BUTTON_KIND,g_add,[488,114,101,12,'Rem',tattr,18,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  53.     IF (g_file:=CreateGadgetA(STRING_KIND,g_rem,[159,187,148,13,'Fichier Image',tattr,19,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  54.     IF (g_getfile:=CreateGadgetA(BUTTON_KIND,g_file,[309,187,30,13,'?',tattr,20,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  55.     IF (g_position:=CreateGadgetA(CYCLE_KIND,g_getfile,[366,17,234,12,'',tattr,21,0,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GTCY_LABELS,['Positionnement','Terminer positionnement',0],GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  56.     IF (g_posx:=CreateGadgetA(STRING_KIND,g_position,[419,29,181,13,'PosX',tattr,22,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  57.     IF (g_posy:=CreateGadgetA(STRING_KIND,g_posx,[419,42,181,13,'PosY',tattr,23,1,execw_visual,0]:newgadget,[GTST_STRING,'',GTST_MAXCHARS,100,GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  58.     IF (g_showname:=CreateGadgetA(CHECKBOX_KIND,g_posy,[419,62,26,11,'Monter le nom',tattr,24,2,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GTCB_CHECKED,FALSE,GT_UNDERSCORE,"_", TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  59.     IF (g_save:=CreateGadgetA(BUTTON_KIND,g_showname,[357,80,101,12,'Sauver',tattr,25,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  60.     IF (g_saveas:=CreateGadgetA(BUTTON_KIND,g_save,[462,80,101,12,'Sauver S.',tattr,26,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  61.     IF (g_use:=CreateGadgetA(BUTTON_KIND,g_saveas,[358,93,101,12,'Charger',tattr,27,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  62.     IF (g_test:=CreateGadgetA(BUTTON_KIND,g_use,[463,93,101,12,'Tester',tattr,28,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  63.     IF (g_quit:=CreateGadgetA(BUTTON_KIND,g_test,[572,80,51,25,'QUIT',tattr,29,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  64.     IF (g_getcurrentdir:=CreateGadgetA(BUTTON_KIND,g_quit,[309,107,28,13,'?',tattr,30,16,execw_visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  65.     IF (g_list:=CreateGadgetA(LISTVIEW_KIND,g_getcurrentdir,[369,130,231,73,'',tattr,31,0,execw_visual,0]:newgadget,[GTLV_SHOWSELECTED,NIL,GTLV_LABELS,-1,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
  66.     Raise(ER_NONE)
  67. EXCEPT
  68.     RETURN exception
  69. ENDPROC
  70. PROC tm_CloseLibraries() /*"tm_CloseLibraries()"*/
  71.     IF workbenchbase THEN CloseLibrary(workbenchbase)
  72.     IF tm_Request('       Avec l\aaimable participation de      \n'+
  73.                   '    <<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>   \n'+
  74.                   '   Nico François         ReqTools.library.   \n'+
  75.                   '   Stefan Becker         ToolManager.library.\n'+
  76.                   '   Jaba Development      GadToolsBox.        \n'+
  77.                   '   Dietmar Eilert        GoldED.             \n'+
  78.                   '   Barry Wills           Epp.                \n'+
  79.                   '   Wouter Van Oortmersen Ec.                 \n'+
  80.                   '    <<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>   \n'+
  81.                   '       Voulez-vous Quitter ToolManager ?     \n'+
  82.                   '    <<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>   ','_Oui|_Non',NIL)
  83.         VOID QuitToolManager()
  84.     ENDIF
  85.     IF toolmanagerbase THEN CloseLibrary(toolmanagerbase)
  86.     IF reqtoolsbase THEN CloseLibrary(reqtoolsbase)
  87.     IF gfxbase THEN CloseLibrary(gfxbase)
  88.     IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  89.     IF intuitionbase THEN CloseLibrary(intuitionbase)
  90. ENDPROC
  91. PROC tm_RemAPP() /*"tm_RemAPP()"*/
  92.     IF appitem THEN RemoveAppMenuItem(appitem)
  93.     IF prgport THEN DeleteMsgPort(prgport)
  94.     IF list_appicon THEN tm_CleanAppIconList(list_appicon,LIST_REMOVE)
  95.     tm_RemMainWindow()
  96.     IF tm_h THEN FreeTMHandle(tm_h)
  97.     IF prgsig THEN FreeSignal(prgsig)
  98. ENDPROC
  99.  
  100.